home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 22
/
Amiga Format AFCD22 (Jan 1998, Issue 106).iso
/
-in_the_mag-
/
emulation
/
pc-taskpatch4.3
/
update_pc-task4.2
< prev
next >
Wrap
Text File
|
1997-11-14
|
2KB
|
84 lines
; PC-Task v4.2 to v4.3 Updater
; 12/10/97 Copyright 1997 Quasar Distribution
; Translated by:
(set @default-dest "SYS:")
; English language
(set #pctask-location
(cat "Please select location of PC-Task program(s):"
))
(set #help-askbool
(cat "Please select Yes to install the file(s) "
"or select No so they are not installed. "
))
(set #help-askloc
(cat "Your PC-Task programs "
"must be in the directory you select in "
"order for it to be updated. The programs "
"must not have their files names changed. "
))
;--------------------------------------------------
(set dest2 (askdir (prompt #pctask-location)
(default @default-dest)
(help #help-askloc)
)
)
; update the PC-Task program if it exists
(if (= (exists (tackon dest2 "PC-Task_Dynamic")) 1)
(
(run (cat "PCTPatch \"" (tackon dest2 "PC-Task_Dynamic") "\" PC-Task_Dynamic.pch ram:PC-Task_Dynamic"))
(if (= (exists "ram:PC-Task_Dynamic") 1)
(
(copyfiles
(source "ram:PC-Task_Dynamic")
(dest dest2)
(help @copyfiles-help)
)
(delete "ram:PC-Task_Dynamic")
)
)
)
)
(if (= (exists (tackon dest2 "PC-Task_Interpretive")) 1)
(
(run (cat "PCTPatch \"" (tackon dest2 "PC-Task_Interpretive") "\" PC-Task_Interpretive.pch ram:PC-Task_Interpretive"))
(if (= (exists "ram:PC-Task_Interpretive") 1)
(
(copyfiles
(source "ram:PC-Task_Interpretive")
(dest dest2)
(help @copyfiles-help)
)
(delete "ram:PC-Task_Interpretive")
)
)
)
)
(
(copyfiles
(source "README")
(dest dest2)
(newname "README_FIRST!")
(help @copyfiles-help)
)
)
(set @default-dest dest2)